open BUFF,"../JP_Yuji_list/snps_in_gene.txt" or die "no file exists\n";
while(<BUFF>)
{
	chomp($_);
	@a = split(/\t/,$_);
	@ge = split('__',$a[1]);
	for($i=0;$i<@ge;$i++)
	{
		$hash{$ge[$i]} = $a[0];
	}
	#print "@ge\n";
	#die;
}
#open BUFF,"../genotype_survival_bootstrap/maintop400_paper.txt" or die "no file exists\n";
$file=$ARGV[0];
chomp($file);
open(BUFF,$file);
while(<BUFF>)
{
        chomp($_);
        @a = split(/\t/,$_);
	if(exists($hash{$a[0]}))
	{
		$hash1{$hash{$a[0]}} =1;
	}
}
while(my($key,$value)=each %hash1)
{
	print $key."\n";
}
